home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / NEW_TECH / WINCMD.ZIP / SEARCH.WCM < prev    next >
Text File  |  1993-04-07  |  991b  |  31 lines
  1. ===================================================================
  2. //---------------------------------------------------------
  3. // WinCmd program that uses file manager to
  4. // search a disk for a set of files.
  5. //---------------------------------------------------------
  6. //
  7. // Ask user for file spec.  Default to all files
  8. //
  9. ans = AskBox ("Enter the file name to look for", "*.*")
  10. //
  11. // If user pressed the Cancel button, quit
  12. //
  13. if ans+a == a
  14.    exit
  15. //
  16. // If the file manager isn't running, start it
  17. //
  18. if (AppActivate ("File Manager") = 0)
  19.    winfile
  20. //
  21. // Send keys to File Manager to search disk.
  22. //
  23. sendkeys ("%-n")         //Minimize directory tree window
  24. sendkeys ("%fh")         //Open file search dialog
  25. sendkeys (ans)           //Enter file spec 
  26. sendkeys ("{tab}")       //Tab to directory window
  27. sendkeys ("c:\")         //Enter hard drive root
  28. sendkeys ("{enter}")     //Start search
  29. sendkeys ("%-x")         //Maximize search results window
  30. exit
  31.